#!/usr/bin/perl -w
use strict;
use XML::Simple;

my $documento = $ARGV[0];
my $muebles = XMLin($documento); 
print Dumper($muebles);
foreach my $h (keys %{$muebles->{habitacion}} ) {
    print "$h\n"; 
}
